with TEXT_IO;
use TEXT_IO;

package LOG is

   procedure Logear( str: in String);
   procedure Archivo( nombre : in String );
private

   procedure EscribirArch( datos: in String );

   task type Semaforo is private
      entry Wait ;
      entry Signal;
   end Semaforo;


   VALOR_INICIAL :Integer := 1;
   arch : String := "tp2.txt";
   semf : Semaforo ;
   F    : File_Type;
end LOG;
